DLSINT - INT, 5ERV, FC DLS (DATA LINE SCANNFR DCIO) 
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;o»«cOPY()IGhT 1969i DIGITAL EQUIPMENT CORP., MAYNARD, MASS,*** 

[THIS SUR-PRQGRAM ASSEMBLED UITH SYSTEM PARAMETER FILE - S,MAC(V414) 

XLIST 

LIST 
TITLE DLSINT - INT, SERV, FOR DLS (DATA LINE SCANNER DC10) 
SUBTTL M, FREDRIKSEN/RCC TS 01 JUN 69 V005 
XP VDLSn.<)05' 

iPUT VERSION NUMBER IN GLOB LISTING AND LOADER STORAGE MAP 

iMODULAR HAROWARF. INTERFACE WITH EITHER SCNSER OR TTYSER 

EXTERNAL TYPX 

IFE FTTTYSER,<XP FULTHX,200000> 

IFN FTTTYSER,<XP FUlTWX,4>' 

;accumulator assignments 



CHREC=TEM 
TDR=OEVDAT 
LINE=TAC1 
MPOS=OAT 



lAC FOR CHARACTER 

lADDRESS OF DEVICE DATA BLOCK 

(SCANNER LINE NUMBER 

(HORIZONTAL POSITION OF TTY,(0-71) 



!BYTE POINTERS 



EXTERNAL PLASTC 



000240 DLS=240 IDC10 DEVICE NUMBER 

;BITS IN CHRFC TO COMMUNICATF WITH DLS 



000100 USORLN=ia0 
000400 TOSABL=400 
00i?400 RCVBIT = 400 



lUSE DIRECTED LINE NUMBER 

ITRANSMIT DISABLE 

(RECEIVE BIT AFTER DATAI DLS.CHREC 



OLSIMT 



- IMT. SERV, FOR DLS (DATA LIME SCANNER DC10) 
M. FREDRIKSEN/RCC TS (^1 JUN 69 VOPig 
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41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
58 
69 
70 



(100000 

000000 
000001 

000002 



000003 
000003 
000004 
000005 
000006 
000007 
000010 
000011 
000012 
000013 
000014 
000015 



724200 
724201 
263140 



724340 
254000 
264000 
724040 
554100 
301100 
254000 
602400 
254000 
724140 
254000 



000040 
000000 
000000 



000030 

000003' 

000000 

000010 

000010 

000000 

000030' 

000400 

000000 

000057' 

000000 



DEVICE DEPL'MDENT PORTION OF INITIALIZATION CODE 
CALL! '-lOVEI TAC, CHANNEL NUMaER 
PUSriJ PDP.SCMINI 



INTERNAL SCNINI 



DLSINI i 
SCNINI : 



CONO 
CONO 
POPJ 



DLS, 40 
DlS, (TAC) 
PDP, 



(INIT DLS COMPLETELY (I/O RESET) 
lASSIGN PI CHANNEL NUMBER 



iSCANNER INTERRUPT SERVICE ROUTINE. 

ENTRY DLSINT 

INTERNAL SCNINT 

EXTERNAL SCNSAV.TC0NLN,fTYTAP.XMTINTiTYPE,lNUS2,RECINT 



DLSINT! 
SCNINT! 



CONSO DLS, 30 

JRST SCNINT 

JSR SCNSAV 

DATAI DLS.CHREC 

HLR2 LiNEiCHRFC 

CAIL LINE.TCONLN 

JRST SCNIN2 

TRNE CHREC.RCVBIT 

JRST RECINT 

DATAO DLS.CEXP TDSABL] 

JRST XMTINT 



lANY INTERRUPTS ON OLS? 
INO 

iGET CHARACTER i LINE INFO 

IPUT LINE NUMBER IN AC LINE 

lARE WE ENASLEO FOR THIS LINE NUMBER? 

INO, TURN OFF TRANSMITdF ON) AND DISMISS 

(WAS IT A RECEIVER INTERRUPT? 

lYES, RECEIVER INT, HANDLER 

ICLEAR HARDWARE FLAG 
IGO PROCICSS CHAR IN SCNSRF OR SCNSRH 



DLS1\/T 



- INT. SERV. FOR OLS (DAT4 LINE SCAMNFR OCie) 
M, FREDRIKSEM/RCC TS 01 JUM 69 V005 
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71 




72 




7J 




74 




75 




76 


<"0C016 


77 


f!00016 


7B 


?i00ai7 


79 


000020 


80 


0000J1 


fll 


000U22 


flZ 


000023 


a3 


0001324 


84 


000025 


85 


000026 


86 


000027 


87 




88 




89 




90 




91 


("00030 


92 




93 




94 


000031 



724140 
263140 



000057' 
000000 



;COMMON PARTS OF 



cty and scavner interrupt SFRVICE ROUTMIES, 



EXTERNAL INJEST.DOBSRC 
INTERNAL TCO^tM 



3323f2 000000 

2540t»0 0000321 

260140 000000 

254li?0 000000 

201240 000000 

303100 000010' 

254000 000000 

306100 000023' 

254000 000000 

264000 000000 



TCOMm: 



SKIPE DDB.TTYTAHfLINE) IDATA BLOCK ASSIGNED? 



JRST INUSE 
PUSHJ POP.OOBSRC 
JRST TYPX 
MOVEI HPOS,0 
CAILE LINE.TCONLNI 
JRST INJEST 

CAIN LINE.TCONLN 
JRST IM(JS2 
JRST TYPE 



lYES 

ISEARCH FOR FREE TTY DEV. DATA BLOCK 

INONE FOUND, TYPE X 

lASSUME TTY IS AT BEGIN OF FORM 

IPSEUOO C0NS0LE7 

)YES 

I IS IT THE CTY ? 

lYES, ACCEPT CHAR AND PROCESS 

INO, ECHO CHAR ON FULL DUPLEX 

(BEFORE PROCESSING IT 



SCNIN2! DATAC 



POPJ 



„, - .^ „ 'H-RE^ IF LINE NUMBER TOO BIG 

DLS.CEXP TDSABLJ ,SET TRANSMIT DISABLE BIT AND OUTPUT IT 

KJUST INCASE, ELSE IT WILL INTERRUPT IMMEDIATELY AGAIN 
''°''' (DISMISS INTERRUPT 



DLSIMT 



95 
96 
97 
98 
99 

im 

101 
102 
103 
104 
105 

107 
108 
109 
Ilia 
111 
112 
113 



- INT. se;rv, roR dls (Oata line scanner DC;30) 

M. FREORIKSEN/RCC TS 01 JUN 59 Viil05 
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33 
34 
35 
36 
37 
40 
41 
42 
43 
44 
45 
46 
47 



(COMMON TO RECEIVE AMD TRANSMIT, 



32 553000 000006 INUSE! HRR?S HDP 



(LINE DISABLED IF RH TTYTAB=-1 



6300 
3140 
00(16 
1100 
4000 
3000 
40P0 
4400 
1400 
0400 
4140 
7400 
3140 



777777 

000000 

000002 

000025' 

000026' 

000004 

000037' 

000002 

000100 

000400 

000010 

000000 

000000 



CAIN D0e,-1 

POPJ POP. 

MOVE IOS,DEVIOS(DDB) 

CAIL LlNEiTCOMLN 

JRST INUS2 

TLNE lOS.FULTWX 

JRST INUS2 

URL CHRECLINE 

TLO CHRECiUSOHUN 

TR? CHRECTDSABL 

OATAO DLS.CHREC 

OPB CHRECiPLASTC 

POPJ POP, 



(SETUP lOS 

ICTY OR PTY ? 

lYES 

MS THIS SELF FCHOEINC FULL DUPLEX? 

IYES,(USER TYPED CONROL 6) 

IINSERT LINE NUMBER IN DATAO 



(DISMISS INTERRUPT 



{ROUTINE TO OUTPUT A CHARACTER ON A LINE 
iCALLED FROM TYP OR TYPL IN SCNSER 



114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 



000050 
000050 
000051 
000052 
000053 
000054 
000055 
000056 

000057 
000057 
000060 



504400 
661400 
620400 
724140 
332000 
137400 
263140 



000002 

000100 

000400 

000010 

000006 

000046' 

000000 



000000 000400 



INTERNAL SCNTYP 



SCNTYP: 
DLSTYP: 



MRL 

TLO 

TR2 

OATAO 

SKIPE 



CHRECLINE 

CHREC.USORLN 

CHREC'TDSABL 

DLS,CHREC 

DDB 



nPB CHRECPLASTC 
POPj POP, 

LIT 



)SET UP LINE NUMBER IN CHREC 

(USE THAT AS DIRECTED LINEi» 
(INSURE TRANSMISSION NOT DISABLED 
(OUT IT GOES 

(SAVE CHAR FOR FULL DUPLEX 



DLSEND! END 



NO ERRORS DETECTED 
PROGRAM BREAK IS 000^60 



OLSIMT - INT. SERV. rQR DLS (DATA LINE SCAMNFR DCi.^) 
SYMBOL T4BLE 
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CHREr 


ee0Bi0 




DDPSRC 


^0f!0?0" 


EXT 


DLS 


tfezzie 




OLSINT 


e000pi3 ' 


INT 


FULTWX 


s'epa?^ 


INT 


INUS? 


uBiaoti ' 


EXT 


LIME 


?00ec2 




RCVBIT 


PI a c; 4 .' n 




SCNINI 


f«000a0> 


INT 


SCNTYP 


OBBBBB' 


INT 


TCOMM 


(5002-16' 


INT 


TEM 


000010 


INT 


TYPX 


000021' 


EXT 


XMTIK'T 


000015' 


EXT 



CAT 


0000''5 


INT 


nEVDAT 


0000<«6 


INT 


"LSEND 


!»00060' 




OLSTYR 


0000'50 > 




wpns 


;?000f?5 




iNiisr 


000032' 




POP 


000003 


INT 


OECnT 


000013' 


EXT 


SCM*JT 


■^000?3' 


INT 


TAC 


0000?ll 


INT 


TCONLN 


000036' 


EXT 


TTYTAB 


000016' 


EXT 


HSORLN 


000100 





DDB 


000006 




OEVIOS 


000002 


INT 


OLSINI 


000000' 




FTTTYS 777777 777777 




INJEST 


000024' 


rXT 


lOS 


000000 


INT 


PLASTC 


000055' 


F-XT 


SCNIN2 


000030' 




SCNSAV 


000005' 


FXT 


TACl 


000002 


TNT 


TDSABL 


000400 




TYPE 


000027' 


FXT 


VOLSIT 


000005 


INT 



A 


bit 


6 


ACl 


6# 


5 


4C2 


6# 


6 


AC3 


6# 




AEFERR 


6# 


6 


AL 


b« 


6 


ASSCON 


6# 


6 


ASSPRG 


6l» 


6 


R 


6# 


6 


BUFPNT 


6# 


6 


BUFWRD 


6# 


6 


CHREC 


22# 


63 


CLKR 


bit 


6 


CLSIN 


6# 


6 


CLSOUT 


bit 


6 


CMWS 


bit 


6 


CORCNT 


btt 


6 


D 


bit 


6 


DAT 


bit 


6 


OCL 


btt 


6 


OCLI 


bit 


6 


DCUO 


6# 


6 


DCLR 


6# 


6 


DDB 


23# 


77 


DDBSRC 


73 


79 


DDI 


6# 


6 


ODO 


6# 


6 


DEN 


bit 


6 


OEVAOR 


b« 


6 


DEVBUF 


bit 


6 


DEVCHR 


bit 


6 


DEVCTR 


bit 


6 


OEVDAT 


bit 


6 


DEVEXT 


btt 


6 


DEVFIL 


bit 


6 


DEVIAD 


b* 


6 


DEVIOS 


bit 


6 


DEVLOG 


bU 


6 


OEVMOD 


btt 


6 


DEVNAM 


btt 


6 


DEVOAO 


bit 


6 


DEVPPN 


bit 


6 


DEVPTR 


bit 


6 


DEVSER 


b# 


6 


OGF 


btt 


6 


OHNG 


bP 


6 


DIN 


bit 


6 


DIM 


bit 


6 


DLK 


btt 


6 


DLS 


35* 


48 


OLSEND 


128# 




OLSINI 


47l!i 




OUSINT 


54 


59* 



64 



25 



97 



b? 



1!15 



106 



IS'7 



108 



1(?9 



118 



119 



120 



121 



123 



1?I0 



122 



23 



lOIZI 



49 



bH 



63 



69 



90 



ICIB 



121 



□LSTYP 


118# 






DMT 


6# 


6 




DNAERR 


6# 


6 




DOU 


6# 


6 




DR 


6# 


6 




ORL 


6# 


6 




ORN 


bit 


6 




OSER 


6# 


6 




OSI 


6# 


6 




DSKRLB 


6# 


6 




DSO 


6# 


6 




DVAVAL 


6* 


6 




DVCDR 


6U 


6 




DVDIR 


6i» 


6 




OVOIRI 


6# 


6 




OVDIS 


6# 


6 




OVOSK 


6# 


6 




nVDTA 


btt 


6 




DVIN 


6« 


6 




DVLNP 


6# 


6 




DVLPT 


6# 


6 




DVMTA 


6# 


6 




DVOUT 


6« 


6 




DVPTP 


6# 


6 




OVPTR 


6# 


6 




OVTTY 


6# 


6 




ENTRF! 


6# 


6 




FBMERR 


6# 


6 




FNFERR 


6# 


6 




FRGSEG 


6# 


6 




FT2RFL 


6M 






FTATTA 


btt 






FTCHEC 


b# 






FTEXAM 


btt 






FTFINI 


btt 






FTGETT 


btt 






FTHALT 


btt 






FTKCT 


btt 






FTMOMP 


btt 






FTPRV 


btt 






FTRA10 


btt 






FTRCHK 


btt 






FTREAS 


btt 






FTSLEE 


btt 






FTTALK 


btt 






FTTIME 


btt 






FTTRAC 


btt 






FTTRPS 


bit 






FTTTYS 


btt 


16 


18 


FULTWX 


19# 


19 


103 


HPOS 


25# 


81 




HSAMSK 


6*1 


6 




HSAPCIS 


61* 


6 





HSASIH 


6# 


6 


HUNGCT 


6# 


6 


HUNGST 


6# 


6 


I 


6« 


6 


IB 


6# 


6 


IBUFB 


6» 


6 


ICLOSB 


6# 


6 


ILM 


6# 




ILUERR 


6# 


6 


INBFR 


6H 


5 


INITH 


6# 


6 


INJEST 


73 


83 


INPB 


6# 


6 


INUS2 


57 


85 


INUSC 


78 


97# 


10 


6# 


6 


lOACT 


6# 


6 


lOBEG 


6* 


6 


lOBKTL 


6# 


6 


lOBOT 


6# 


6 


lOCON 


6# 


6 


lODEND 


6# 


6 


lODERR 


6# 


6 


lODTER 


5# 


6 


lOENO 


6# 


6 


lOFST 


6# 


6 


lOIHPM 


6l» 


6 


lONRCK 


6# 


6 


lOPAR 


6# 


6 


lOS 


6# 


6 


lOTEMD 


6# 


6 


lOUSE 


6# 


6 


lOW 


6# 


6 


lowc 


6# 


6 


IPPERR 


6# 


6 


ITEM 


6# 


6 


JACCT 


6# 


6 


JBFADR 


6# 


6 


JSFCTR 


6# 


6 


JBFPTR 


6# 


6 


JBUF 


6# 


6 


JOAT 


6# 


6 


JERR 


6# 


6 


JLOG 


6tf 


6 


JNA 


6# 


6 


JRO 


6# 


6 


JWPOS 


6# 


6 


JWSI2 


6# 


6 


JXPN 


6# 


6 


LINE 


24# 


64 


LISTSN 


6 




LOOKB 


6# 


6 


MEDDLE 


6# 


6 



102 104 



100 103 



65 77 82 84 101 105 118 



NECERR 


6# 


6 




NLEERR 


6« 


6 




NSDERR 


6# 


6 




NSFERR 


6» 


6 




NSHF 


6« 


6 




^JSRHIT 


6* 


6 




VSWP 


6* 


6 




NXM 


6« 






OBUF? 


6# 


6 




OCLOSB 


6# 


6 




ouTBre 


6# 


6 




OUTPn 


6# 


6 




POP 


6# 


6 


50 


PLASTC 


3H 


1?9 


1?3 


POV 


6# 






PROG 


61* 


6 




PRTERR 


6# 


6 




PVSPYA 


6i» 


6 




PVSPVM 


6« 


6 




PVTRPS 


6# 


6 




RCVeiT 


Aldtt 


ft7 




RECIMT 


57 


66 




RENMfl 


5# 


6 




RUN 


en 


6 




RUNABL 


6# 


6 




RUNMSK 


6tt 


6 




SCMM2 


66 


9B!« 




SCMM 


45 


A&it 




SCNINT 


56 


be* 


61 


SCMSAV 


57 


62 




SCNTYP 


115 


117# 




SO 


&# 


6 




SHP 


bit 


6 




SHRSEG 


6# 


6 




SLEVEL 


6# 


6 




SLICE 


6# 


6 




SNA 


6# 


6 




SPYSEG 


bit 


6 




STOPIO 


b« 


6 




STTYal 


bit 


6 




STTYBF 


bit 


6 




SWP 


bit 


6 




SWPCLR 


bit 


6 




SYSOEV 


bit 


6 




TAC 


bit 


6 


49 


TACl 


6# 


6 


24 


TCOMM 


74 


76* 




TCONLN 


57 


65 


82 


TOSABL 


39# 


69 


90 


TE>^ 


bit 


6 


22 


TRNERR 


bit 


6 




TTYATC 


bit 


6 




TTYaiU 


bit 


6 





94 



99 



110 



124 



84 
107 



101 

120 



TTYT4B 


57 


77 


TTVUSE 


6# 


6 


TYPE 


57 


86 


TYPX 


11 


M 


uCH;g 


b« 


6 


UIOHno 


bit 


6 


USDRLN 


.38# 


l-^b 


USRnnD 


6# 


6 


UUO 


6# 


6 


UWP 


6# 


6 


UWPorF 


b# 


6 


VOUSIT 


10# 


10 


WTMASK 


6# 


6 


XMTIMT 


57 


7B 



119 



CODES 


6« 


DISABL 


b» 


ENABLE 


6» 


NOSCHE 


btt 


NOSHUF 


6# 


QUEUES 


6# 


SCHEnU 


6« 


SHUFFU 


b# 


STARTD 


btt 


XP 


6# 



^1 ?0?0?1 7272!?1 ??05IB(?0 

58 f"0P0?5 546L"li BBTiZf'a' 

59 (»00026 7006"? 00^012' 

60 C000?7 551f'10 0070131 

61 ?!00030 7206Z1 004350 



rONO DSK, (TAC) 

"LRM TAC-DSkCO'I 

rONO PI.PIDN 

MfiRi;! TAC.OCRCh\ 

rONO DrB,X^OVE*Pie*DFNUM( TAC) 



